#! /usr/bin/perl
# file :lgetl.pl

use IO::File;

my $file = shift;
my $fh = IO::File->new($file);
#my $line = <$fh>;    # get a line from handle fh

#print $line;
print while(<$fh>);
